### EXERCCIO 4 -EDA - OLIDAN POCIUS
## CERVEJAS
#Q1
cervejas <-c("chope","lata","garrafa","chope","garrafa", "garrafa","lata","lata","nenhuma","lata","garrafa","garrafa", "garrafa","lata","lata","lata","garrafa","lata","chope","nenhuma", "garrafa","garrafa","garrafa","chope","garrafa","garrafa","chope","garrafa","lata","lata")
class(cervejas) #[1] "character"
cervejas.TAB=table(cervejas)
class(cervejas.TAB)
# grafico de barras
barplot(cervejas.TAB)
# grafico de ponto
dotchart(as.matrix(cervejas.TAB))
#Q2
# Dotchart tem maior razo dados/tinta

## RIOS
# Q1
rivers
class(rivers)
length(rivers)#141
summary(rivers)
media.rios=mean(rivers)
menores=rivers[rivers<media.rios]
length(menores)#94
PROPOR=length(menores)/length(rivers)
PROPOR #[1] 0.6666667
# Q2
summary(rivers)
# quantil 75%=3rd quartil=680
quantile(rivers, 0.75)
# retorna o mesmo valor
# Q3
mean(rivers)#[1] 591.1844
median(rivers)#[1] 425
mean(rivers, trim=0.25)#[1] 449.9155
# as diferenas indicam a presena de valores extremos que tornam a distribuio assimtrica

## CAIXETAIS
caixeta <- read.csv("caixeta.csv", as.is=T)
#Q1
class(caixeta)
str(caixeta)
head(caixeta)
hist(caixeta$h)
#Q2
par(mfrow=c(2,2))
hist(caixeta$h[caixeta$local=="chauas"])
hist(caixeta$h[caixeta$local=="retiro"])
hist(caixeta$h[caixeta$local=="jureia"])

## EUCALIPTOS
egrandis = read.csv("egrandis.csv", header=TRUE, sep=";")
head(egrandis)
#Q1:
par(mfrow=c(1,2))
boxplot(egrandis$dap~egrandis$regiao)   
boxplot(egrandis$dap~egrandis$rotacao)
#Q2:
par(mfrow=c(1,1))
qqnorm(egrandis$ht)
qqline(egrandis$ht) # a distribuio difere da normal terica

## MAIS CAIXETA
#Q1
caixeta <- read.csv("caixeta.csv", as.is=T)
par(mfrow=c(2,2))
plot(caixeta$h[caixeta$especie=="Tabebuia cassinoides"&caixeta$local=="chauas"],caixeta$cap[caixeta$especie=="Tabebuia cassinoides"&caixeta$local=="chauas"],)
plot(caixeta$h[caixeta$especie=="Tabebuia cassinoides"&caixeta$local=="retiro"],caixeta$cap[caixeta$especie=="Tabebuia cassinoides"&caixeta$local=="retiro"],)
plot(caixeta$h[caixeta$especie=="Tabebuia cassinoides"&caixeta$local=="jureia"],caixeta$cap[caixeta$especie=="Tabebuia cassinoides"&caixeta$local=="jureia"],)
#Q2
par(mfrow=c(2,2))
scatter.smooth(caixeta$h[caixeta$especie=="Tabebuia cassinoides"&caixeta$local=="chauas"],caixeta$cap[caixeta$especie=="Tabebuia cassinoides"&caixeta$local=="chauas"],)
scatter.smooth(caixeta$h[caixeta$especie=="Tabebuia cassinoides"&caixeta$local=="retiro"],caixeta$cap[caixeta$especie=="Tabebuia cassinoides"&caixeta$local=="retiro"],)
scatter.smooth(caixeta$h[caixeta$especie=="Tabebuia cassinoides"&caixeta$local=="jureia"],caixeta$cap[caixeta$especie=="Tabebuia cassinoides"&caixeta$local=="jureia"],)




